home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 16 / PC Actual CD 16.iso / cdactual / scripts / orbital / orbital18.exe / orbscript / SISTEMA / CTCPS.INI < prev    next >
Encoding:
INI File  |  1997-08-29  |  5.1 KB  |  46 lines
  1. [script]
  2. n0=;                                    <<Orbital Script 1.8>> ** By Estepario ** 
  3. n1=;
  4. n2=#ctcpignore off
  5. n3=ctcp 1!:* { ignore -ut300 *!*@ $+ $site | echo 3 -a 4,8ORBITAL: Ignorando a ( $+ *!*@ $+ $site $+ ) durante 5 minutos | halt }
  6. n4=#ctcpignore end
  7. n5=#ctcprot on
  8. n6=ctcp 1!:A { inc %ctcps 1 | echo 3 -a 4,8ORBITAL: Ctcp A pedido por $nick | .auser =30 *!*@ $+ $site | .timer80 1 10 .rlevel =21 | .timer90 1 10 set %ctcps 0 }
  9. n7=ctcp 1!:PING { inc %ctcps 1 | echo 3 -a 4,8ORBITAL: Ctcp Ping pedido por $nick | .auser =30 *!*@ $+ $site | .timer80 1 10 .rlevel =21 | .timer90 1 10 set %ctcps 0 }
  10. n8=ctcp 1!:USERINFO { inc %ctcps 1 | echo 3 -a 4,8ORBITAL: Ctcp Userinfo pedido por $nick | .auser =30 *!*@ $+ $site | .timer80 1 10 .rlevel =30 | .timer90 1 10 set %ctcps 0 | halt }
  11. n9=ctcp 1!:CLIENTINFO { inc %ctcps 1 | echo 3 -a 4,8ORBITAL: Ctcp Clientinfo pedido por $nick | .auser =30 *!*@ $+ $site | .timer80 1 10 .rlevel =30 | .timer90 1 10 set %ctcps 0 | halt }
  12. n10=ctcp 1!:VERSION { inc %ctcps 1 | echo 3 -a 4,8ORBITAL: Ctcp Version pedido por $nick | notice $nick %ver | .auser =30 *!*@ $+ $site | .timer80 1 10 .rlevel =30 | .timer90 1 10 set %ctcps 0 }
  13. n11=ctcp 1!:ECHO { inc %ctcps 1 | echo 3 -a 4,8ORBITAL: Ctcp Echo pedido por $nick | .auser =30 *!*@ $+ $site | .timer80 1 10 rlevel =30 | .timer90 1 10 set %ctcps 0 | halt }
  14. n12=ctcp 1!:TIME { inc %ctcps 1 | echo 3 -a 4,8ORBITAL: Ctcp Time realizado por $nick | .auser =30 *!*@ $+ $site | .timer80 1 10 .rlevel =30 | .timer90 1 10 set %ctcps 0 | halt }
  15. n13=ctcp 1!:SED { inc %ctcps 1 | echo 3 -a 4,8ORBITAL: Ctcp Sed pedido por $nick | .auser =30 *!*@ $+ $site | .timer80 1 10 .rlevel =30 | .timer90 1 10 set %ctcps 0 }
  16. n14=ctcp 1!:FINGER { inc %ctcps 1 | echo 3 -a 4,8ORBITAL: Ctcp Finger pedido por $nick | .auser =30 *!*@ $+ $site | .timer80 1 10 .rlevel =30 | .timer90 1 10 set %ctcps 0 }
  17. n15=ctcp 1!:HALIBUT { inc %ctcps 1 | echo 3 -a 4,8ORBITAL: Ctcp Halibut pedido por $nick | .auser =30 *!*@ $+ $site | .timer80 1 10 .rlevel =30 | .timer90 1 10 set %ctcps 0 }
  18. n16=ctcp 1!:TROUT { inc %ctcps 1 | echo 3 -a 4,8ORBITAL: Ctcp Trout pedido por $nick | .auser =30 *!*@ $+ $site | .timer80 1 10 .rlevel =30 | .timer90 1 10 set %ctcps 0 }
  19. n17=ctcp 1!:SOUND { inc %ctcps 1 | echo 3 -a 4,8ORBITAL: Ctcp Sound pedido por $nick | .auser =30 *!*@ $+ $site | .timer80 1 10 .rlevel =30 | .timer90 1 10 set %ctcps 0 }
  20. n18=ctcp +30:* { 
  21. n19=  inc %ctcps 1
  22. n20=  if (%ctcps >= 5) { ignore -tu300 *!*@ $+ $site | echo 4 -a 4,8ORBITAL: Mßs de 5 ctcps pedidos en 10 segs! | .timer90 1 10 set %ctcps 0 | set %fludsite *!*@ $+ $site | halt }
  23. n21=  else { ignore -tu180 *!*@ $+ $site | /set -q %fludnick $nick | /set -q %fludadd $address | echo 4 -a 4,8ORBITAL: Posible Ctcp FLOOD DETECTADO de $nick $+ ( $+ $mask($address($nick,0),1) $+ )  Ignorandole durante 3 minutos |  echo 4 -a Para a±adirle a la shitlist pulsa F10 | .timer90 1 10 set %ctcps 0 | set %fludsite *!*@ $+ $site | halt } 
  24. n22=}
  25. n23=#ctcprot end
  26. n24=#dccprot on
  27. n25=ctcp 1!:DCC SEND { 
  28. n26=  inc %ctcps 1 
  29. n27=  if ($parm5 == 19) { ignore -tu300 *!*@ $+ $site | echo 4 -a 4,8ORBITAL: Fake DCC intentado por $nick $+ ( $+ $mask($address($nick,0),1) $+ )  Ignorandolo durante 5 minutos | .timer90 1 10 set %ctcps 0 | halt }
  30. n28=  else { echo 3 -a 4,8ORBITAL: DCC Send pedido por $nick $+ ( $+ $mask($address($nick,0),1) $+ ) | .auser =30 *!*@ $+ $site | .timer80 1 10 .rlevel =30 | .timer90 1 10 set %ctcps 0 }
  31. n29=}
  32. n30=ctcp 1!:DCC CHAT { 
  33. n31=  inc %ctcps 1 
  34. n32=  if ($parm5 == 19) { ignore -tu300 *!*@ $+ $site | echo 4 -a 4,8ORBITAL: Fake DCC intentado por $nick $+ ( $+ $mask($address($nick,0),1) $+ )  Ignorandolo durante 5 minutos | .timer90 1 10 set %ctcps 0 | halt }
  35. n33=  else { echo 3 -a 4,8ORBITAL: DCC Chat pedido por $nick $+ ( $+ $mask($address($nick,0),1) $+ ) | .auser =30 *!*@ $+ $site | .timer80 1 10 .rlevel =30 | .timer90 1 10 set %ctcps 0 }
  36. n34=}
  37. n35=ctcp 1!:DCC RESUME { inc %ctcps 1 | echo 3 -a 4,8ORBITAL: DCC Resume pedido por $nick $+ ( $+ $mask($address($nick,0),1) $+ ) | .auser =30 *!*@ $+ $site | .timer80 1 10 .rlevel =30 | .timer90 1 10 set %ctcps 0 }
  38. n36=ctcp 1!:DCC ACCEPT { inc %ctcps 1 | echo 3 -a 4,8ORBITAL: DCC Accept ( $+ $parm3 $+ ) - ( $+ $parm6 bytes $+ ) - Puerto: $parm5 por $nick $+ ( $+ $mask($address($nick,0),1) $+ ) | .auser =30 *!*@ $+ $site | .timer80 1 10 .rlevel =30 | .timer90 1 10 set %ctcps 0 }
  39. n37=ctcp +30:DCC { ignore -tu120 *!*@ $+ $site | set %fludsite *!*@ $+ $site | echo 4 -a 4,8ORBITAL: Ignorando a $nick $+ ( $+ $mask($address($nick,0),1) $+ ) durante 2 minutos (M·ltiples peticiones de DCC) | halt }
  40. n38=ctcp 1!:* { inc %ctcps 1 | echo 3 -a 4,8ORBITAL: Ctcp $parms pedido por $nick $+ ( $+ $mask($address($nick,0),1) $+ ) | .auser =30 *!*@ $+ $site | .timer80 1 10 .rlevel =30 | .timer90 1 10 set %ctcps 0 }
  41. n39=#dccprot end
  42. n40=#nodcc off
  43. n41=ctcp 1!:DCC CHAT { creq ignore | .notice $nick Lo siento, estoy rechazando todos los DCC Chat | ignore -tu30 $nick 3 }
  44. n42=ctcp 1!:DCC SEND { sreq ignore | .notice $nick Lo siento, estoy rechazando todos los DCC Send | ignore -tu30 $nick 3 }
  45. n43=#nodcc end
  46.